
option explicit

public sub base_FUI_OnApplyEvent(byval sNameUI)
	' Asigno el objeto seleccioado al objeto asignado a esta ventana	
	dim oUI
	dim oClass
	dim oParentViewUI
	
    ' Obtengo la UI
    set oUI = oApp.oUIs.Item(sNameUI)
	
	' Valido que se haya seleccionado un objeto
	if oUI.oViewUI.oObjectSelected is nothing then
		exit sub
	end if
	
	' Obtengo ...
	set oClass = oApp.oStorage.LoadObject("qclass", "name='"&oUI.oViewUI.oObjectSelected.sClassName&"'")
	set oParentViewUI = oUI.oParentUI.oViewUI


	
'ANULADO
'	' Asigno la nueva clave foranea al objeto padre
'	oUI.oObject.oSimpleProperty(oUI.oProperty.sName).sValue = oUI.oViewUI.oObjectSelected.oSimpleProperty(oUI.oProperty.sFieldReferenced).sValue

	' En la VUI padre, en la celda seleccionado, asigno el nuevo valor
	oParentViewUI.sCellText(oParentViewUI.iRowSelected, oParentViewUI.iColSelected) = oUI.oViewUI.oObjectSelected.oSimpleProperty(oClass.oSimpleProperty("descriptor").sValue).sValue

	' Hago un VUI_OnEndEditEvent de la celda PTR en la UI padre
	call VUI_OnEndEditEvent(oUI.oParentUI.sName)

	' Guardo el objeto padre
	oUI.oObject.save

    ' Refresh de la vista padre
    oUI.oParentUI.oViewUI.Refresh()

end sub

public sub base_FUI_OnAceptEvent(byval sNameUI)
    dim oUI

    ' Aplico los cambios
    base_FUI_OnApplyEvent(sNameUI)

    ' Obtengo la UI
    set oUI = oApp.oUIs.Item(sNameUI)

    ' Cierro la UI
    oUI.OK

    ' Refresh de la vista anterior
    oUI.oParentUI.oViewUI.Refresh()
	
    ' Libero recursos
    oApp.FreeUI oUI
end sub

public sub base_FUI_OnCancelEvent(byval sNameUI)
    dim oUI

    ' Obtengo la UI
    set oUI = oApp.oUIs.Item(sNameUI)

    ' Cierro la UI
    oUI.Cancel

    ' Libero recursos
    oApp.FreeUI oUI
end sub

public sub base_FUI_OnDblClickEvent(byval sNameUI)
	' Equivale a aceptar
	call base_FUI_OnAceptEvent(sNameUI)
end sub


public sub base_VUI_OnHtmlRefresh(byval sNameUI)
	dim sUrl
	
	sUrl = Global.sLoginCentralServerUrl & "default.panel/default.asp?company=" & Global.sLoginCompany

	oApp.oUIs.Item(sNameUI).oViewUI.SetHtmlUrl sUrl
end sub